File:  of Tape: Sources/Other/new-22-vista-2

(Source file text) 

---

		TURN OFF ATTRIBUTES
/
Z:SPV1	TAD	='1-'4		SET FOR BOLD
Z:SPV2	TAD	='4		SET FOR UNDERLINE
	JMS	ESCBRA		DO ESC[DIGIT
	TAD	='M+040		END OF SEQUENCE
	JMP	CHOUT		...
	EJECT
/
/	HERE FOR POSITION CURSOR COMMAND. IN THIS CASE, WE POSITION
/	TO THE ROW AND COLUMN SPECIFIED BY 'ROW' AND 'COL'
/
/	VT100 REQUIRES:
/
/		ESC	[	XXX	YYY	f
/
/	WHERE XXX IS THE LINE NUMBER, AND YYY IS THE COLUMN POSITION
/
Z:POS	JMS	ESCBRA		START WITH ESCAPE AND BRACKET
	JMS	CROW		ADDRESS OF CURRENT ROW
	JMS	TWOUT		OUTPUT LINE ADDRESS
	TAD	=';		SEPARATOR
	JMSI	PSCR		...
	TAD	COL		COLUMN POSITION
	IAC			ADJUST TO RANGE 1-N
	JMS	TWOUT		OUTPUT THAT
	TAD	='F+040		END OF SEQUENCE
	JMP	CHOUT		ALL DONE HERE
/
/	OUTPUT BINARY NUMBER IN AC AS TWO ASCII DIGITS
/
TWOUT	DC	0
	DCA	XT		SAVE RESULT

	TAD	='0-1		INITIALIZE HIGH DIGIT
	DCA	XT2		ACCUMULATE RESULT
	TAD	XT		GET THE NUMBER
/

TW1	INC	XT2		COUNT THE DIGIT

	TAD	=-012		COUNT TENS POSITION

	SMA			ALL DONE?

	JMP	TW1		NO: SO LOOP BACK NOW
/

	TAD	=012+'0		MAKE A DIGIT
	DCA	XT		AND SAVE IT
	TAD	XT2		OUTPUT FIRST DIGIT
	JMSI	PSCR		...
	TAD	XT		OUTPUT SECOND DIGIT
	JMSI	PSCR		...
	JMPI	TWOUT		ALL DONE HERE
/
	ORG	06600

---